home *** CD-ROM | disk | FTP | other *** search
/ Hyper Stacks 1994 May / Hyper Stacks (Pacific HiTech)(1994)[Mac].iso / Graphics / XMas Fun / card_3210.txt < prev    next >
Encoding:
Text File  |  1987-09-12  |  1.8 KB  |  73 lines
  1. -- card: 3210 from stack: in
  2. -- bmap block id: 2544
  3. -- flags: 4000
  4. -- background id: 2635
  5. -- name: begin
  6. ----- HyperTalk script -----
  7.  
  8.  
  9.  
  10.  
  11.  
  12. -- part 1 (button)
  13. -- low flags: 00
  14. -- high flags: 8003
  15. -- rect: left=285 top=312 right=334 bottom=385
  16. -- title width / last selected line: 0
  17. -- icon id / first selected line: 0 / 0
  18. -- text alignment: 1
  19. -- font id: 0
  20. -- text size: 12
  21. -- style flags: 0
  22. -- line height: 16
  23. -- part name: Run Demo
  24. ----- HyperTalk script -----
  25. on mouseUp
  26.   hide menubar
  27.   ASK "Run Demo?" with "yes"
  28.   put IT into  field 1
  29.   put IT into field 1 of card "tree 2"
  30.   put IT into field 1 of card "tree 3"
  31.   put IT into field 1 of card "tree 4"
  32.   put It into field 1 of card "tree 1"
  33.   put IT into field 1 of card "tree 5"
  34.   put IT into field 1 of card "tree 6"
  35.   put IT into field 1 of card "tree 7"
  36.   put It into field 1 of card "tree 8"
  37.   put IT into field 1 of card "tree 9"
  38.   put IT into field 1 of card "tree 10"
  39.   put IT into field 1 of card "tree 11"
  40.   put It into field 1 of card "tree 12"
  41.   put IT into field 1 of card "tree 13"
  42.   put IT into field 1 of card "tree 14"
  43.   put IT into field 1 of card "tree 15"
  44.   put It into field 1 of card "tree 16"
  45.   put IT into field 1 of card "tree 17"
  46.   put IT into field 1 of card "tree 18"
  47.   put It into field 1 of card "tree 19"
  48.   put IT into field 1 of card "tree 20"
  49.   put IT into field 1 of card "tree 21"
  50.   put It into field 1 of card "tree 22"
  51.   put IT into field 1 of card "tree 23"
  52.   put IT into field 1 of card "tree 24"
  53.   put It into field 1 of card "tree 25"
  54.   put IT into field 1 of card "tree 26"
  55.   put IT into field 1 of card "tree 27"
  56.   if  field 1 = "yes" then
  57.     go card "tree 1"
  58.   end if
  59. end mouseUp
  60.  
  61.  
  62.  
  63. -- part contents for background part 2
  64. ----- text -----
  65. yes
  66.  
  67. -- part contents for card part 2
  68. ----- text -----
  69. yes
  70.  
  71. -- part contents for background part 3
  72. ----- text -----
  73. yes